﻿Public Class dindex

    Private Sub ButtonX1_Click(sender As Object, e As EventArgs)
        htaccess.RichTextBox1.AppendText(Environment.NewLine)
        htaccess.RichTextBox1.AppendText(Environment.NewLine)
        htaccess.RichTextBox1.AppendText("DirectoryIndex " + TextBox1.Text)
        Me.Close()
    End Sub

    Private Sub CloudButton1_Click(sender As Object, e As EventArgs) Handles CloudButton1.Click
        htaccess.RichTextBox1.AppendText(Environment.NewLine)
        htaccess.RichTextBox1.AppendText(Environment.NewLine)
        htaccess.RichTextBox1.AppendText("DirectoryIndex " + TextBox1.Text)
        Me.Close()
    End Sub
End Class